﻿Imports System.Data.SqlClient
Public Class AgregaAvales

    Private Sub AgregaAvales_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.GridControl1.Refresh()
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.AsignacionAval' Puede moverla o quitarla según sea necesario.
        Me.AsignacionAvalTableAdapter.FillBy(Me.EsperanzaDBDataSet.AsignacionAval, Me.txtPrestamo.Text)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)

        Try
            If varConexion.State = ConnectionState.Open Then
                varConexion.Close()
            End If
            varConexion.Open()
            Dim sql As String = String.Format("SELECT Observaciones FROM Prestamos WHERE NumeroPrestamo = {1}", Me.txtObservaciones.Text, Me.txtPrestamo.Text)
            Dim cmd As New SqlCommand(sql, varConexion)
            Dim reader As SqlDataReader = cmd.ExecuteReader

            If reader.Read Then
                If IsDBNull(reader.Item("Observaciones")) Then
                    Me.txtObservaciones.Text = Nothing
                Else
                    Me.txtObservaciones.Text = reader.Item("Observaciones")
                End If
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click
        Me.AsignacionAvalTableAdapter.InsertarAval(Me.txtPrestamo.Text, Me.cboClientes.EditValue)
        Me.AsignacionAvalTableAdapter.FillBy(Me.EsperanzaDBDataSet.AsignacionAval, Me.txtPrestamo.Text)
    End Sub

    Private Sub btnGuarPrestamo_Click(sender As Object, e As EventArgs) Handles btnGuarPrestamo.Click
        Try
            If varConexion.State = ConnectionState.Open Then
                varConexion.Close()
            End If
            varConexion.Open()
            Dim sql As String = String.Format("UPDATE Prestamos SET Observaciones = '{0}' WHERE NumeroPrestamo = {1}", Me.txtObservaciones.Text, Me.txtPrestamo.Text)
            Dim cmd As New SqlCommand(sql, varConexion)
            cmd.ExecuteNonQuery()

            Me.Dispose()
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class